﻿Public Class frm_Acceso_Concedido
    Dim nombre As String
    Public Property _Nombre
        Get
            Return nombre
        End Get
        Set(ByVal value)
            nombre = value
        End Set
    End Property

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
        frm_Principal._nombre = nombre
        frm_Principal.Show()
        frm_Acceso.Hide()
        frm_olvide_Constraseña.Hide()
        Me.Close()
        lbl_bienvenido.Text = ""
    End Sub

    Private Sub frm_Acceso_Concedido_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        lbl_bienvenido.Text = "Bienvenido " + nombre

        frm_Principal.lbl_hora.Text = Now.ToLongTimeString

        frm_Principal.lbl_fecha.Text = Now.ToLongDateString

    End Sub

    Private Sub lbl_bienvenido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_bienvenido.Click

    End Sub

   
End Class